object ProjectoptionsDialog: TProjectoptionsDialog
  Left = 174
  Top = 362
  BorderStyle = bsDialog
  Caption = 'Projectoptions'
  ClientHeight = 379
  ClientWidth = 386
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 370
    Height = 334
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'General'
      ImageIndex = 4
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 62
        Height = 13
        Caption = '&Projectname:'
        FocusControl = txtProjName
      end
      object Label2: TLabel
        Left = 8
        Top = 48
        Width = 45
        Height = 13
        Caption = '&Filename:'
        FocusControl = txtProjFilename
      end
      object Label3: TLabel
        Left = 8
        Top = 256
        Width = 166
        Height = 13
        Caption = '&Before closing this Project execute:'
        FocusControl = cboCloseExec
      end
      object Label4: TLabel
        Left = 8
        Top = 216
        Width = 56
        Height = 13
        Caption = 'Pa&rameters:'
      end
      object txtProjName: TEdit
        Left = 8
        Top = 24
        Width = 346
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
      end
      object txtProjFilename: TEdit
        Left = 8
        Top = 64
        Width = 326
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 1
      end
      object btnBrowse: TCorelButton
        Left = 339
        Top = 64
        Width = 17
        Height = 21
        Hint = 'Save as'
        Anchors = [akTop, akRight]
        Caption = '...'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = btnBrowseClick
      end
      object chkShowProject: TCheckBox
        Left = 8
        Top = 88
        Width = 297
        Height = 17
        Caption = '&Show Workspace when loading this Project'
        TabOrder = 3
      end
      object rgLoadProjectfiles: TRadioGroup
        Left = 8
        Top = 112
        Width = 346
        Height = 73
        Anchors = [akLeft, akTop, akRight]
        Caption = 'Load Projectfiles'
        Items.Strings = (
          'Load &none'
          'Load &all'
          'As in &last session')
        TabOrder = 4
      end
      object chkSortFiles: TCheckBox
        Left = 8
        Top = 192
        Width = 297
        Height = 17
        Caption = 'S&ort files alphabetically'
        TabOrder = 5
      end
      object cboCloseExec: TComboBox
        Left = 8
        Top = 272
        Width = 346
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 13
        TabOrder = 6
        OnClick = cboCloseExecClick
        OnDropDown = cboCloseExecDropDown
      end
      object btnVars: TCorelButton
        Tag = 3
        Left = 335
        Top = 232
        Width = 17
        Height = 21
        Hint = 'Variables'
        Caption = '>'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnClick = btnToolCommParamClick
      end
      object txtRunParams: TEdit
        Left = 8
        Top = 232
        Width = 321
        Height = 21
        TabOrder = 8
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Files'
      ImageIndex = 5
      object Panel1: TPanel
        Left = 8
        Top = 8
        Width = 346
        Height = 25
        Alignment = taLeftJustify
        Anchors = [akLeft, akTop, akRight]
        BevelOuter = bvLowered
        Caption = ' Projectfiles:'
        TabOrder = 1
        object TBToolbar2: TTBToolbar
          Left = 201
          Top = 1
          Width = 144
          Height = 23
          Align = alRight
          Caption = 'Projectfiles'
          Images = CommandsDataModule.imlFilesToolBar
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          object TBItem8: TTBItem
            Action = actFilesAdd
          end
          object TBItem26: TTBItem
            Action = actFileAddFolder
          end
          object TBItem7: TTBItem
            Action = actFilesOpen
          end
          object TBItem6: TTBItem
            Action = actFilesRemove
          end
          object TBSeparatorItem2: TTBSeparatorItem
          end
          object TBItem10: TTBItem
            Action = actFilesUp
          end
          object TBItem9: TTBItem
            Action = actFilesDown
          end
        end
      end
      object lstProjFiles: TListBox
        Left = 8
        Top = 40
        Width = 346
        Height = 254
        Anchors = [akLeft, akTop, akRight, akBottom]
        ItemHeight = 13
        PopupMenu = popFiles
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnDblClick = actFilesOpenExecute
        OnDrawItem = lstProjFilesDrawItem
        OnMouseDown = lstProjFilesMouseDown
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Profiles'
      ImageIndex = 9
      inline RunProgsFrame: TRunProgsFrame
        Width = 362
        Height = 306
        Align = alClient
        inherited lblProgram: TLabel
          Top = 186
        end
        inherited lblDir: TLabel
          Top = 234
        end
        inherited lblCompMess: TLabel
          Top = 258
        end
        inherited lblArguments: TLabel
          Top = 212
        end
        inherited lblTimeout: TLabel
          Left = 72
          Top = 288
        end
        inherited lblDelay: TLabel
          Left = 176
          Top = 288
        end
        inherited lblNeedExit: TLabel
          Left = 288
          Top = 288
        end
        inherited cboRunProfile: TComboBox
          Width = 275
        end
        inherited btnEditProfile: TCorelButton
          Left = 336
        end
        inherited Panel1: TPanel
          Width = 346
          inherited TBToolbar3: TTBToolbar
            Left = 201
          end
        end
        inherited lvwPrograms: TListView
          Width = 345
          Height = 113
          OnEditing = lvToolsEditing
          OnExit = lvToolsExit
        end
        inherited txtProgram: TEdit
          Top = 184
          Width = 265
        end
        inherited txtDirectory: TEdit
          Top = 232
          Width = 249
        end
        inherited btnBrowseDir: TCorelButton
          Left = 324
          Top = 232
        end
        inherited btnDirVars: TCorelButton
          Left = 340
          Top = 232
        end
        inherited btnProgArgs: TCorelButton
          Left = 340
          Top = 208
          OnClick = RunProgsFramebtnProgArgsClick
        end
        inherited btnBrowseProg: TCorelButton
          Left = 340
          Top = 184
        end
        inherited txtCompilerMess: TEdit
          Top = 256
          Width = 249
        end
        inherited btnCompMessVars: TCorelButton
          Left = 340
          Top = 256
        end
        inherited txtArgs: TEdit
          Top = 208
          Width = 265
        end
        inherited chkHidden: TCheckBox
          Top = 272
        end
        inherited spnTimeout: TSpinEdit
          Left = 120
          Top = 283
        end
        inherited spnDelay: TSpinEdit
          Left = 216
          Top = 283
        end
        inherited btnRegExpr: TCorelButton
          Left = 324
          Top = 256
        end
        inherited spnNeedExit: TSpinEdit
          Left = 312
          Top = 283
        end
        inherited chkDetached: TCheckBox
          Top = 287
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Tools'
      ImageIndex = 4
      object lblToolKind: TLabel
        Left = 8
        Top = 185
        Width = 44
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = 'T&oolkind:'
        FocusControl = cboToolKind
      end
      object lblIconFile: TLabel
        Left = 8
        Top = 161
        Width = 43
        Height = 13
        Anchors = [akLeft, akRight, akBottom]
        Caption = '&Icon File:'
        FocusControl = txtToolIcon
      end
      object Panel7: TPanel
        Left = 8
        Top = 8
        Width = 346
        Height = 25
        Alignment = taLeftJustify
        Anchors = [akLeft, akTop, akRight]
        BevelOuter = bvLowered
        Caption = ' Project Tools:'
        TabOrder = 0
        object TBToolbar3: TTBToolbar
          Left = 201
          Top = 1
          Width = 144
          Height = 23
          Align = alRight
          Caption = 'Tools'
          Images = CommandsDataModule.imlFilesToolBar
          TabOrder = 0
          object TBItem13: TTBItem
            Caption = 'Add Tool'
            Hint = 'Add|Add new Tool'
            ImageIndex = 8
            OnClick = TBItem13Click
          end
          object TBItem1: TTBItem
            Caption = 'Copy'
            Enabled = False
            Hint = 'Copy|Copy Tool'
            ImageIndex = 12
            OnClick = TBItem1Click
          end
          object TBItem12: TTBItem
            Caption = 'Edit'
            Enabled = False
            Hint = 'Edit|Edit Toolname'
            ImageIndex = 7
            OnClick = TBItem12Click
          end
          object TBItem11: TTBItem
            Caption = 'Remove'
            Enabled = False
            Hint = 'Remove|Remove selected Tool'
            ImageIndex = 1
            OnClick = TBItem11Click
          end
          object TBSeparatorItem3: TTBSeparatorItem
          end
          object TBItem15: TTBItem
            Caption = 'Up'
            Enabled = False
            Hint = 'Up|Move Tool up'
            ImageIndex = 2
            OnClick = TBItem15Click
          end
          object TBItem14: TTBItem
            Caption = 'Down'
            Enabled = False
            Hint = 'Down|Move Tool down'
            ImageIndex = 3
            OnClick = TBItem14Click
          end
        end
      end
      object lvTools: TListView
        Left = 8
        Top = 40
        Width = 346
        Height = 113
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Width = 325
          end>
        HideSelection = False
        RowSelect = True
        ShowColumnHeaders = False
        SmallImages = CommandsDataModule.imlShellIcon
        TabOrder = 1
        ViewStyle = vsReport
        OnDeletion = lvToolsDeletion
        OnEdited = lvToolsEdited
        OnEditing = lvToolsEditing
        OnExit = lvToolsExit
        OnSelectItem = lvToolsSelectItem
      end
      object cboToolKind: TComboBox
        Left = 64
        Top = 181
        Width = 290
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akRight, akBottom]
        ItemHeight = 13
        TabOrder = 4
        OnClick = cboToolKindClick
        Items.Strings = (
          'Launch Program'
          'Insert String'
          'Execute Editcommand'
          'DOS Command')
      end
      object nbTools: TNotebook
        Left = 8
        Top = 208
        Width = 346
        Height = 94
        Anchors = [akLeft, akRight, akBottom]
        TabOrder = 5
        object TPage
          Left = 0
          Top = 0
          Caption = 'LaunchProg'
          object lblCommand: TLabel
            Left = 0
            Top = 8
            Width = 42
            Height = 13
            Caption = '&Program:'
            FocusControl = txtToolCommand
          end
          object lblWorkingDir: TLabel
            Left = 0
            Top = 56
            Width = 83
            Height = 13
            Caption = '&Workingdirectory:'
            FocusControl = txtToolDir
          end
          object lblArguments: TLabel
            Left = 0
            Top = 32
            Width = 53
            Height = 13
            Caption = '&Arguments:'
            FocusControl = txtToolsArgs
          end
          object chkCapture: TCheckBox
            Left = 0
            Top = 78
            Width = 105
            Height = 17
            Caption = 'C&apture Console'
            TabOrder = 0
          end
          object txtToolDir: TEdit
            Left = 96
            Top = 52
            Width = 216
            Height = 21
            Anchors = [akLeft, akTop, akRight]
            TabOrder = 5
          end
          object txtToolCommand: TEdit
            Left = 96
            Top = 4
            Width = 231
            Height = 21
            Anchors = [akLeft, akTop, akRight]
            TabOrder = 1
          end
          object btnToolCommand: TCorelButton
            Left = 331
            Top = 4
            Width = 14
            Height = 21
            Hint = 'Browse'
            Anchors = [akTop, akRight]
            Caption = '...'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            OnClick = btnToolCommandClick
          end
          object btnToolCommParam: TCorelButton
            Tag = 1
            Left = 331
            Top = 28
            Width = 14
            Height = 21
            Hint = 'Parameters'
            Anchors = [akTop, akRight]
            Caption = '>'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            OnClick = btnToolCommParamClick
          end
          object btnToolDirParam: TCorelButton
            Tag = 1
            Left = 331
            Top = 52
            Width = 14
            Height = 21
            Hint = 'Variables'
            Anchors = [akTop, akRight]
            Caption = '>'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 7
            OnClick = btnToolDirParamClick
          end
          object btnToolDir: TCorelButton
            Left = 315
            Top = 52
            Width = 14
            Height = 21
            Hint = 'Browse'
            Anchors = [akTop, akRight]
            Caption = '...'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 6
            OnClick = btnToolDirClick
          end
          object txtToolsArgs: TEdit
            Left = 96
            Top = 28
            Width = 231
            Height = 21
            TabOrder = 3
          end
          object chkProgHidden: TCheckBox
            Left = 112
            Top = 78
            Width = 65
            Height = 17
            Caption = '&Hidden'
            TabOrder = 8
          end
          object chkSaveBefore: TCheckBox
            Left = 184
            Top = 78
            Width = 121
            Height = 17
            Caption = '&Save before run'
            TabOrder = 9
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'InsertString'
          object lblInsertString: TLabel
            Left = 0
            Top = 4
            Width = 70
            Height = 13
            Caption = '&String to insert:'
            FocusControl = txtInsertString
          end
          object txtInsertString: TMemo
            Left = 80
            Top = 8
            Width = 266
            Height = 81
            Hint = 'As Variable for the selected Text use {$Sel}.'
            Anchors = [akLeft, akTop, akRight]
            ScrollBars = ssBoth
            TabOrder = 0
          end
          object btnInsertVars: TCorelButton
            Tag = 1
            Left = 0
            Top = 66
            Width = 75
            Height = 23
            Hint = 'Variables|Variables'
            Caption = '&Variables >'
            TabOrder = 1
            OnClick = btnInsertVarsClick
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'ExecCommand'
          object lblEditCommand: TLabel
            Left = 0
            Top = 24
            Width = 67
            Height = 13
            Caption = '&Editcommand:'
            FocusControl = cboCommand
          end
          object cboCommand: TComboBox
            Left = 0
            Top = 40
            Width = 346
            Height = 21
            Style = csDropDownList
            Anchors = [akLeft, akTop, akRight]
            ItemHeight = 13
            TabOrder = 0
          end
        end
      end
      object txtToolIcon: TEdit
        Left = 64
        Top = 157
        Width = 272
        Height = 21
        Anchors = [akLeft, akRight, akBottom]
        TabOrder = 2
        OnChange = txtToolIconChange
      end
      object btnIcoBrowse: TCorelButton
        Left = 340
        Top = 157
        Width = 14
        Height = 21
        Hint = 'Browse'
        Anchors = [akRight, akBottom]
        Caption = '...'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = btnIcoBrowseClick
      end
    end
  end
  object btnCancel: TCorelButton
    Left = 305
    Top = 349
    Width = 75
    Height = 23
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
  end
  object btnOK: TCorelButton
    Left = 225
    Top = 349
    Width = 75
    Height = 23
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 2
    OnClick = btnOKClick
  end
  object OpenDialog1: TOpenDialog
    Filter = 'All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
    Left = 8
    Top = 344
  end
  object SaveDialog1: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 40
    Top = 344
  end
  object popDirs: TPopupMenu
    Left = 104
    Top = 344
    object Documentdirectory1: TMenuItem
      Caption = 'Documentpath'
      Hint = 'Path to the active Document'
      OnClick = Documentdirectory1Click
    end
    object Programdirectory1: TMenuItem
      Tag = 1
      Caption = 'Programpath'
      Hint = 'Path to the Program'
      OnClick = Documentdirectory1Click
    end
    object Projectpath1: TMenuItem
      Tag = 2
      Caption = 'Projectpath'
      Hint = 'Path to the Project file'
      OnClick = Documentdirectory1Click
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object WindowsDirectory1: TMenuItem
      Tag = 3
      Caption = 'Windows Directory'
      Hint = 'Windows Directory'
      OnClick = Documentdirectory1Click
    end
    object SystemDirectory1: TMenuItem
      Tag = 4
      Caption = 'System Directory'
      Hint = 'System Directory'
      OnClick = Documentdirectory1Click
    end
    object TemporaryDirectory1: TMenuItem
      Tag = 5
      Caption = 'Temporary Directory'
      Hint = 'Temporary Directory'
      OnClick = Documentdirectory1Click
    end
  end
  object actFiles: TActionList
    Left = 168
    Top = 344
    object actFilesAdd: TAction
      Caption = '&Add'
      Hint = 'Add|Add file to Project'
      ImageIndex = 8
      ShortCut = 45
      OnExecute = actFilesAddExecute
    end
    object actFileAddFolder: TAction
      Caption = 'Add &Folder'
      Hint = 'Add Folder| Add all files in a folder'
      ImageIndex = 11
      OnExecute = actFileAddFolderExecute
    end
    object actFilesOpen: TAction
      Caption = '&Open'
      Enabled = False
      Hint = 'Open|Open selected File(s)'
      ImageIndex = 10
      ShortCut = 16463
      OnExecute = actFilesOpenExecute
      OnUpdate = actFilesOpenUpdate
    end
    object actFilesRemove: TAction
      Caption = '&Remove'
      Enabled = False
      Hint = 'Remove|Remove selected File(s)'
      ImageIndex = 1
      ShortCut = 46
      OnExecute = actFilesRemoveExecute
      OnUpdate = actFilesOpenUpdate
    end
    object actFilesUp: TAction
      Caption = '&Up'
      Enabled = False
      Hint = 'Up|Move selected Item up'
      ImageIndex = 2
      OnExecute = actFilesUpExecute
      OnUpdate = actFilesUpUpdate
    end
    object actFilesDown: TAction
      Caption = '&Down'
      Enabled = False
      Hint = 'Down|Move selected Item down'
      ImageIndex = 3
      OnExecute = actFilesDownExecute
      OnUpdate = actFilesDownUpdate
    end
  end
  object popFiles: TTBPopupMenu
    Images = CommandsDataModule.imlFilesToolBar
    Left = 200
    Top = 344
    object TBItem23: TTBItem
      Action = actFilesAdd
    end
    object TBItem22: TTBItem
      Action = actFilesOpen
      Options = [tboDefault]
    end
    object TBItem21: TTBItem
      Action = actFilesRemove
    end
    object TBSeparatorItem5: TTBSeparatorItem
    end
    object TBItem25: TTBItem
      Action = actFilesUp
    end
    object TBItem24: TTBItem
      Action = actFilesDown
    end
  end
  object popStrInsertVar: TPopupMenu
    Left = 72
    Top = 344
    object Selection1: TMenuItem
      Tag = 1
      Caption = 'Selection'
      OnClick = Selection1Click
    end
    object DateTime1: TMenuItem
      Tag = 2
      Caption = 'Date/Time'
      OnClick = Selection1Click
    end
    object Username1: TMenuItem
      Tag = 3
      Caption = 'Username'
      OnClick = Selection1Click
    end
    object FileTitle1: TMenuItem
      Tag = 4
      Caption = 'Filetitle'
    end
    object FiletitlenoExtension1: TMenuItem
      Tag = 5
      Caption = 'Filetitle no Extension'
    end
    object Filename1: TMenuItem
      Tag = 6
      Caption = 'Filename'
    end
    object Filepath1: TMenuItem
      Tag = 7
      Caption = 'Filepath'
    end
    object File1: TMenuItem
      Tag = 8
      Caption = 'File...'
      OnClick = Selection1Click
    end
  end
  object popParams: TPopupMenu
    Left = 136
    Top = 344
    object ActiveDocument1: TMenuItem
      Tag = 10
      Caption = 'Active Document (short)'
      OnClick = ActiveDocument1Click
    end
    object ActiveDocumentlong1: TMenuItem
      Tag = 11
      Caption = 'Active Document (long)'
      OnClick = ActiveDocument1Click
    end
    object MenuItem1: TMenuItem
      Caption = '-'
    end
    object ActiveDocumentwithoutExtension1: TMenuItem
      Tag = 12
      Caption = 'Active Document no Extension (short)'
      OnClick = ActiveDocument1Click
    end
    object ActiveDocumentwithExtenshion1: TMenuItem
      Tag = 13
      Caption = 'Active Document no Extension (long)'
      OnClick = ActiveDocument1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object ActiveDocumentTitleshort1: TMenuItem
      Tag = 14
      Caption = 'Active Document Title (short)'
      OnClick = ActiveDocument1Click
    end
    object ActiveDocumentTitlelong1: TMenuItem
      Tag = 15
      Caption = 'Active Document Title (long)'
      OnClick = ActiveDocument1Click
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object ActiveDocumentTitlenoExshort1: TMenuItem
      Tag = 16
      Caption = 'Active Document Title no Extension (short)'
      OnClick = ActiveDocument1Click
    end
    object ActiveDocumentTitlenoExtensionlong1: TMenuItem
      Tag = 17
      Caption = 'Active Document Title no Extension (long)'
      OnClick = ActiveDocument1Click
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object ActiveDocumentFileextension1: TMenuItem
      Tag = 18
      Caption = 'Active Document File extension'
      OnClick = ActiveDocument1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object ProjectFilenameshort1: TMenuItem
      Tag = 19
      Caption = 'Project Filename (short)'
      OnClick = ActiveDocument1Click
    end
    object ProjectFilenamelong1: TMenuItem
      Tag = 20
      Caption = 'Project Filename (long)'
      OnClick = ActiveDocument1Click
    end
    object N11: TMenuItem
      Caption = '-'
    end
    object ChooseFilenameshort1: TMenuItem
      Tag = 21
      Caption = 'Choose Filename (short)'
      OnClick = ActiveDocument1Click
    end
    object ChooseFilenamelong1: TMenuItem
      Tag = 22
      Caption = 'Choose Filename (long)'
      OnClick = ActiveDocument1Click
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object ModifiedFiles1: TMenuItem
      Tag = 23
      Caption = 'Modified Files'
      OnClick = ActiveDocument1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Documentpath1: TMenuItem
      Tag = 24
      Caption = 'Documentpath (short)'
      OnClick = ActiveDocument1Click
    end
    object Documentpathlong1: TMenuItem
      Tag = 25
      Caption = 'Documentpath (long)'
      OnClick = ActiveDocument1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Programpath1: TMenuItem
      Tag = 26
      Caption = 'Programpath (short)'
      OnClick = ActiveDocument1Click
    end
    object Programpathlong1: TMenuItem
      Tag = 27
      Caption = 'Programpath (long)'
      OnClick = ActiveDocument1Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Projectpath2: TMenuItem
      Tag = 28
      Caption = 'Projectpath (short)'
      OnClick = ActiveDocument1Click
    end
    object Projectpathlong1: TMenuItem
      Tag = 29
      Caption = 'Projectpath (long)'
      OnClick = ActiveDocument1Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object Systemfolders1: TMenuItem
      Caption = 'Systemfolders'
      object MenuItem2: TMenuItem
        Tag = 50
        Caption = 'Windows Directory'
        OnClick = ActiveDocument1Click
      end
      object MenuItem3: TMenuItem
        Tag = 51
        Caption = 'System Directory'
        OnClick = ActiveDocument1Click
      end
      object TemporaryDirectory2: TMenuItem
        Tag = 52
        Caption = 'Temporary Directory'
        OnClick = ActiveDocument1Click
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object CurrentWord1: TMenuItem
      Tag = 30
      Caption = 'Current Word'
      OnClick = ActiveDocument1Click
    end
    object Linenumber1: TMenuItem
      Tag = 31
      Caption = 'Line number'
      OnClick = ActiveDocument1Click
    end
    object ColumnNumber1: TMenuItem
      Tag = 32
      Caption = 'Column Number'
      OnClick = ActiveDocument1Click
    end
    object Prompt1: TMenuItem
      Tag = 33
      Caption = 'Prompt'
      OnClick = ActiveDocument1Click
    end
  end
  object BrowseForFolder: TBrowseForFolder
    Options = [boNewFolder, boCenter]
    Left = 308
    Top = 224
  end
end